home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1992-02-04 | 3.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(defvar ledit-mode-map nil)
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 6c 65 64 69 74 2d 6d |.(defvar| ledit-m|
|00000010| 6f 64 65 2d 6d 61 70 20 | 6e 69 6c 29 0a 0a 28 64 |ode-map |nil)..(d|
|00000020| 65 66 63 6f 6e 73 74 20 | 6c 65 64 69 74 2d 7a 61 |efconst |ledit-za|
|00000030| 70 2d 66 69 6c 65 20 28 | 63 6f 6e 63 61 74 20 22 |p-file (|concat "|
|00000040| 2f 74 6d 70 2f 22 20 28 | 67 65 74 65 6e 76 20 22 |/tmp/" (|getenv "|
|00000050| 55 53 45 52 22 29 20 22 | 2e 6c 31 22 29 20 22 5c |USER") "|.l1") "\|
|00000060| 0a 46 69 6c 65 20 6e 61 | 6d 65 20 66 6f 72 20 64 |.File na|me for d|
|00000070| 61 74 61 20 73 65 6e 74 | 20 74 6f 20 4c 69 73 70 |ata sent| to Lisp|
|00000080| 20 62 79 20 4c 65 64 69 | 74 2e 22 29 0a 0a 28 64 | by Ledi|t.")..(d|
|00000090| 65 66 63 6f 6e 73 74 20 | 6c 65 64 69 74 2d 72 65 |efconst |ledit-re|
|000000a0| 61 64 2d 66 69 6c 65 20 | 28 63 6f 6e 63 61 74 20 |ad-file |(concat |
|000000b0| 22 2f 74 6d 70 2f 22 20 | 28 67 65 74 65 6e 76 20 |"/tmp/" |(getenv |
|000000c0| 22 55 53 45 52 22 29 20 | 22 2e 6c 32 22 29 20 22 |"USER") |".l2") "|
|000000d0| 5c 0a 46 69 6c 65 20 6e | 61 6d 65 20 66 6f 72 20 |\.File n|ame for |
|000000e0| 64 61 74 61 20 73 65 6e | 74 20 74 6f 20 4c 65 64 |data sen|t to Led|
|000000f0| 69 74 20 62 79 20 4c 69 | 73 70 2e 22 29 0a 0a 28 |it by Li|sp.")..(|
|00000100| 64 65 66 63 6f 6e 73 74 | 20 6c 65 64 69 74 2d 63 |defconst| ledit-c|
|00000110| 6f 6d 70 69 6c 65 2d 66 | 69 6c 65 20 28 63 6f 6e |ompile-f|ile (con|
|00000120| 63 61 74 20 22 2f 74 6d | 70 2f 22 20 28 67 65 74 |cat "/tm|p/" (get|
|00000130| 65 6e 76 20 22 55 53 45 | 52 22 29 20 22 2e 6c 34 |env "USE|R") ".l4|
|00000140| 22 29 20 22 5c 0a 46 69 | 6c 65 20 6e 61 6d 65 20 |") "\.Fi|le name |
|00000150| 66 6f 72 20 64 61 74 61 | 20 73 65 6e 74 20 74 6f |for data| sent to|
|00000160| 20 4c 69 73 70 20 63 6f | 6d 70 69 6c 65 72 20 62 | Lisp co|mpiler b|
|00000170| 79 20 4c 65 64 69 74 2e | 22 29 0a 0a 28 64 65 66 |y Ledit.|")..(def|
|00000180| 63 6f 6e 73 74 20 6c 65 | 64 69 74 2d 62 75 66 66 |const le|dit-buff|
|00000190| 65 72 20 22 2a 4c 45 44 | 49 54 2a 22 20 22 5c 0a |er "*LED|IT*" "\.|
|000001a0| 4e 61 6d 65 20 6f 66 20 | 62 75 66 66 65 72 20 69 |Name of |buffer i|
|000001b0| 6e 20 77 68 69 63 68 20 | 4c 65 64 69 74 20 61 63 |n which |Ledit ac|
|000001c0| 63 75 6d 75 6c 61 74 65 | 73 20 64 61 74 61 20 74 |cumulate|s data t|
|000001d0| 6f 20 73 65 6e 64 20 74 | 6f 20 4c 69 73 70 2e 22 |o send t|o Lisp."|
|000001e0| 29 0a 0a 28 64 65 66 75 | 6e 20 6c 65 64 69 74 2d |)..(defu|n ledit-|
|000001f0| 73 61 76 65 2d 64 65 66 | 75 6e 20 6e 69 6c 20 22 |save-def|un nil "|
|00000200| 5c 0a 53 61 76 65 20 74 | 68 65 20 63 75 72 72 65 |\.Save t|he curre|
|00000210| 6e 74 20 64 65 66 75 6e | 20 69 6e 20 74 68 65 20 |nt defun| in the |
|00000220| 6c 65 64 69 74 20 62 75 | 66 66 65 72 22 20 28 69 |ledit bu|ffer" (i|
|00000230| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000240| 65 2d 63 6f 64 65 20 22 | c2 88 8a c3 20 88 60 18 |e-code "|.... .`.|
|00000250| c4 20 88 c5 09 60 08 23 | 29 88 c6 c7 21 29 87 22 |. ...`.#|)...!)."|
|00000260| 20 5b 65 6e 64 20 6c 65 | 64 69 74 2d 62 75 66 66 | [end le|dit-buff|
|00000270| 65 72 20 6e 69 6c 20 65 | 6e 64 2d 6f 66 2d 64 65 |er nil e|nd-of-de|
|00000280| 66 75 6e 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |fun begi|nning-of|
|00000290| 2d 64 65 66 75 6e 20 61 | 70 70 65 6e 64 2d 74 6f |-defun a|ppend-to|
|000002a0| 2d 62 75 66 66 65 72 20 | 6d 65 73 73 61 67 65 20 |-buffer |message |
|000002b0| 22 43 75 72 72 65 6e 74 | 20 64 65 66 75 6e 20 73 |"Current| defun s|
|000002c0| 61 76 65 64 20 66 6f 72 | 20 4c 69 73 70 22 5d 20 |aved for| Lisp"] |
|000002d0| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 6c 65 64 69 |6))..(de|fun ledi|
|000002e0| 74 2d 73 61 76 65 2d 72 | 65 67 69 6f 6e 20 28 62 |t-save-r|egion (b|
|000002f0| 65 67 20 65 6e 64 29 20 | 22 5c 0a 53 61 76 65 20 |eg end) |"\.Save |
|00000300| 74 68 65 20 63 75 72 72 | 65 6e 74 20 72 65 67 69 |the curr|ent regi|
|00000310| 6f 6e 20 69 6e 20 74 68 | 65 20 6c 65 64 69 74 20 |on in th|e ledit |
|00000320| 62 75 66 66 65 72 22 20 | 28 69 6e 74 65 72 61 63 |buffer" |(interac|
|00000330| 74 69 76 65 20 22 72 22 | 29 20 28 62 79 74 65 2d |tive "r"|) (byte-|
|00000340| 63 6f 64 65 20 22 c3 88 | c4 08 09 0a 23 88 c5 c6 |code "..|....#...|
|00000350| 21 87 22 20 5b 6c 65 64 | 69 74 2d 62 75 66 66 65 |!." [led|it-buffe|
|00000360| 72 20 62 65 67 20 65 6e | 64 20 6e 69 6c 20 61 70 |r beg en|d nil ap|
|00000370| 70 65 6e 64 2d 74 6f 2d | 62 75 66 66 65 72 20 6d |pend-to-|buffer m|
|00000380| 65 73 73 61 67 65 20 22 | 52 65 67 69 6f 6e 20 73 |essage "|Region s|
|00000390| 61 76 65 64 20 66 6f 72 | 20 4c 69 73 70 22 5d 20 |aved for| Lisp"] |
|000003a0| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 6c 65 64 69 |4))..(de|fun ledi|
|000003b0| 74 2d 7a 61 70 2d 64 65 | 66 75 6e 2d 74 6f 2d 6c |t-zap-de|fun-to-l|
|000003c0| 69 73 70 20 6e 69 6c 20 | 22 5c 0a 43 61 72 72 79 |isp nil |"\.Carry|
|000003d0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 65 66 | the cur|rent def|
|000003e0| 75 6e 20 74 6f 20 6c 69 | 73 70 22 20 28 69 6e 74 |un to li|sp" (int|
|000003f0| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00000400| 63 6f 64 65 20 22 c0 88 | c1 20 88 c2 20 87 22 20 |code "..|. .. ." |
|00000410| 5b 6e 69 6c 20 6c 65 64 | 69 74 2d 73 61 76 65 2d |[nil led|it-save-|
|00000420| 64 65 66 75 6e 20 6c 65 | 64 69 74 2d 67 6f 2d 74 |defun le|dit-go-t|
|00000430| 6f 2d 6c 69 73 70 5d 20 | 33 29 29 0a 0a 28 64 65 |o-lisp] |3))..(de|
|00000440| 66 75 6e 20 6c 65 64 69 | 74 2d 7a 61 70 2d 64 65 |fun ledi|t-zap-de|
|00000450| 66 75 6e 2d 74 6f 2d 6c | 69 73 7a 74 20 6e 69 6c |fun-to-l|iszt nil|
|00000460| 20 22 5c 0a 43 61 72 72 | 79 20 74 68 65 20 63 75 | "\.Carr|y the cu|
|00000470| 72 72 65 6e 74 20 64 65 | 66 75 6e 20 74 6f 20 6c |rrent de|fun to l|
|00000480| 69 73 7a 74 22 20 28 69 | 6e 74 65 72 61 63 74 69 |iszt" (i|nteracti|
|00000490| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000004a0| c0 88 c1 20 88 c2 20 87 | 22 20 5b 6e 69 6c 20 6c |... .. .|" [nil l|
|000004b0| 65 64 69 74 2d 73 61 76 | 65 2d 64 65 66 75 6e 20 |edit-sav|e-defun |
|000004c0| 6c 65 64 69 74 2d 67 6f | 2d 74 6f 2d 6c 69 73 7a |ledit-go|-to-lisz|
|000004d0| 74 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 6c |t] 3))..|(defun l|
|000004e0| 65 64 69 74 2d 7a 61 70 | 2d 72 65 67 69 6f 6e 2d |edit-zap|-region-|
|000004f0| 74 6f 2d 6c 69 73 70 20 | 28 62 65 67 20 65 6e 64 |to-lisp |(beg end|
|00000500| 29 20 22 5c 0a 43 61 72 | 72 79 20 74 68 65 20 63 |) "\.Car|ry the c|
|00000510| 75 72 72 65 6e 74 20 72 | 65 67 69 6f 6e 20 74 6f |urrent r|egion to|
|00000520| 20 6c 69 73 70 22 20 28 | 69 6e 74 65 72 61 63 74 | lisp" (|interact|
|00000530| 69 76 65 20 22 72 22 29 | 20 28 62 79 74 65 2d 63 |ive "r")| (byte-c|
|00000540| 6f 64 65 20 22 c2 88 c3 | 08 09 5c 22 88 c4 20 87 |ode "...|..\".. .|
|00000550| 22 20 5b 62 65 67 20 65 | 6e 64 20 6e 69 6c 20 6c |" [beg e|nd nil l|
|00000560| 65 64 69 74 2d 73 61 76 | 65 2d 72 65 67 69 6f 6e |edit-sav|e-region|
|00000570| 20 6c 65 64 69 74 2d 67 | 6f 2d 74 6f 2d 6c 69 73 | ledit-g|o-to-lis|
|00000580| 70 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 6c |p] 3))..|(defun l|
|00000590| 65 64 69 74 2d 67 6f 2d | 74 6f 2d 6c 69 73 70 20 |edit-go-|to-lisp |
|000005a0| 6e 69 6c 20 22 5c 0a 53 | 75 73 70 65 6e 64 20 45 |nil "\.S|uspend E|
|000005b0| 6d 61 63 73 20 61 6e 64 | 20 72 65 73 74 61 72 74 |macs and| restart|
|000005c0| 20 61 20 77 61 69 74 69 | 6e 67 20 4c 69 73 70 20 | a waiti|ng Lisp |
|000005d0| 6a 6f 62 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |job." (i|nteracti|
|000005e0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000005f0| c6 88 08 85 08 00 c7 20 | 88 c8 09 21 85 1f 00 8a |....... |...!....|
|00000600| 09 71 88 65 62 88 c9 65 | 64 0a 23 88 ca 20 29 88 |.q.eb..e|d.#.. ).|
|00000610| cb 0b 21 88 cc 0c c5 c5 | 23 87 22 20 5b 6c 65 64 |..!.....|#." [led|
|00000620| 69 74 2d 73 61 76 65 2d | 66 69 6c 65 73 20 6c 65 |it-save-|files le|
|00000630| 64 69 74 2d 62 75 66 66 | 65 72 20 6c 65 64 69 74 |dit-buff|er ledit|
|00000640| 2d 7a 61 70 2d 66 69 6c | 65 20 6c 65 64 69 74 2d |-zap-fil|e ledit-|
|00000650| 67 6f 2d 74 6f 2d 6c 69 | 73 70 2d 73 74 72 69 6e |go-to-li|sp-strin|
|00000660| 67 20 6c 65 64 69 74 2d | 72 65 61 64 2d 66 69 6c |g ledit-|read-fil|
|00000670| 65 20 74 20 6e 69 6c 20 | 73 61 76 65 2d 73 6f 6d |e t nil |save-som|
|00000680| 65 2d 62 75 66 66 65 72 | 73 20 67 65 74 2d 62 75 |e-buffer|s get-bu|
|00000690| 66 66 65 72 20 77 72 69 | 74 65 2d 72 65 67 69 6f |ffer wri|te-regio|
|000006a0| 6e 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 73 |n erase-|buffer s|
|000006b0| 75 73 70 65 6e 64 2d 65 | 6d 61 63 73 20 6c 6f 61 |uspend-e|macs loa|
|000006c0| 64 5d 20 39 29 29 0a 0a | 28 64 65 66 75 6e 20 6c |d] 9))..|(defun l|
|000006d0| 65 64 69 74 2d 67 6f 2d | 74 6f 2d 6c 69 73 7a 74 |edit-go-|to-liszt|
|000006e0| 20 6e 69 6c 20 22 5c 0a | 53 75 73 70 65 6e 64 20 | nil "\.|Suspend |
|000006f0| 45 6d 61 63 73 20 61 6e | 64 20 72 65 73 74 61 72 |Emacs an|d restar|
|00000700| 74 20 61 20 77 61 69 74 | 69 6e 67 20 4c 69 73 7a |t a wait|ing Lisz|
|00000710| 74 20 6a 6f 62 2e 22 20 | 28 69 6e 74 65 72 61 63 |t job." |(interac|
|00000720| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000730| 20 22 c6 88 08 85 08 00 | c7 20 88 c8 09 21 85 5c | "......|. ...!.\|
|00000740| 22 00 8a 09 71 88 65 62 | 88 c9 63 88 ca 65 64 0a |"...q.eb|..c..ed.|
|00000750| 23 88 cb 20 29 88 cc 0b | 21 88 cd 0c c5 c5 23 87 |#.. )...|!.....#.|
|00000760| 22 20 5b 6c 65 64 69 74 | 2d 73 61 76 65 2d 66 69 |" [ledit|-save-fi|
|00000770| 6c 65 73 20 6c 65 64 69 | 74 2d 62 75 66 66 65 72 |les ledi|t-buffer|
|00000780| 20 6c 65 64 69 74 2d 63 | 6f 6d 70 69 6c 65 2d 66 | ledit-c|ompile-f|
|00000790| 69 6c 65 20 6c 65 64 69 | 74 2d 67 6f 2d 74 6f 2d |ile ledi|t-go-to-|
|000007a0| 6c 69 73 7a 74 2d 73 74 | 72 69 6e 67 20 6c 65 64 |liszt-st|ring led|
|000007b0| 69 74 2d 72 65 61 64 2d | 66 69 6c 65 20 74 20 6e |it-read-|file t n|
|000007c0| 69 6c 20 73 61 76 65 2d | 73 6f 6d 65 2d 62 75 66 |il save-|some-buf|
|000007d0| 66 65 72 73 20 67 65 74 | 2d 62 75 66 66 65 72 20 |fers get|-buffer |
|000007e0| 22 28 64 65 63 6c 61 72 | 65 20 28 6d 61 63 72 6f |"(declar|e (macro|
|000007f0| 73 20 74 29 29 0a 22 20 | 77 72 69 74 65 2d 72 65 |s t))." |write-re|
|00000800| 67 69 6f 6e 20 65 72 61 | 73 65 2d 62 75 66 66 65 |gion era|se-buffe|
|00000810| 72 20 73 75 73 70 65 6e | 64 2d 65 6d 61 63 73 20 |r suspen|d-emacs |
|00000820| 6c 6f 61 64 5d 20 39 29 | 29 0a 0a 28 64 65 66 75 |load] 9)|)..(defu|
|00000830| 6e 20 6c 65 64 69 74 2d | 73 65 74 75 70 20 6e 69 |n ledit-|setup ni|
|00000840| 6c 20 22 5c 0a 53 65 74 | 20 75 70 20 6b 65 79 20 |l "\.Set| up key |
|00000850| 62 69 6e 64 69 6e 67 73 | 20 66 6f 72 20 74 68 65 |bindings| for the|
|00000860| 20 4c 69 73 70 20 2f 20 | 45 6d 61 63 73 20 69 6e | Lisp / |Emacs in|
|00000870| 74 65 72 66 61 63 65 22 | 20 28 62 79 74 65 2d 63 |terface"| (byte-c|
|00000880| 6f 64 65 20 22 08 3f 85 | 0d 00 c1 20 89 10 88 c2 |ode ".?.|... ....|
|00000890| 08 21 88 c3 08 c4 c5 23 | 88 c3 08 c6 c7 23 88 c3 |.!.....#|.....#..|
|000008a0| 08 c8 c9 23 88 c3 08 ca | cb 23 87 22 20 5b 6c 65 |...#....|.#." [le|
|000008b0| 64 69 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 6d 61 6b |dit-mode|-map mak|
|000008c0| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|000008d0| 6c 69 73 70 2d 6d 6f 64 | 65 2d 63 6f 6d 6d 61 6e |lisp-mod|e-comman|
|000008e0| 64 73 20 64 65 66 69 6e | 65 2d 6b 65 79 20 22 1b |ds defin|e-key ".|
|000008f0| 04 22 20 6c 65 64 69 74 | 2d 73 61 76 65 2d 64 65 |." ledit|-save-de|
|00000900| 66 75 6e 20 22 1b 12 22 | 20 6c 65 64 69 74 2d 73 |fun ".."| ledit-s|
|00000910| 61 76 65 2d 72 65 67 69 | 6f 6e 20 22 18 7a 22 20 |ave-regi|on ".z" |
|00000920| 6c 65 64 69 74 2d 67 6f | 2d 74 6f 2d 6c 69 73 70 |ledit-go|-to-lisp|
|00000930| 20 22 1b 03 22 20 6c 65 | 64 69 74 2d 67 6f 2d 74 | ".." le|dit-go-t|
|00000940| 6f 2d 6c 69 73 7a 74 5d | 20 39 29 29 0a 0a 28 6c |o-liszt]| 9))..(l|
|00000950| 65 64 69 74 2d 73 65 74 | 75 70 29 0a 0a 28 64 65 |edit-set|up)..(de|
|00000960| 66 75 6e 20 6c 65 64 69 | 74 2d 6d 6f 64 65 20 6e |fun ledi|t-mode n|
|00000970| 69 6c 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 |il "\.Ma|jor mode|
|00000980| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 74 65 78 | for edi|ting tex|
|00000990| 74 20 61 6e 64 20 73 74 | 75 66 66 69 6e 67 20 69 |t and st|uffing i|
|000009a0| 74 20 74 6f 20 61 20 4c | 69 73 70 20 6a 6f 62 2e |t to a L|isp job.|
|000009b0| 0a 4c 69 6b 65 20 4c 69 | 73 70 20 6d 6f 64 65 2c |.Like Li|sp mode,|
|000009c0| 20 70 6c 75 73 20 74 68 | 65 73 65 20 73 70 65 63 | plus th|ese spec|
|000009d0| 69 61 6c 20 63 6f 6d 6d | 61 6e 64 73 3a 0a 20 20 |ial comm|ands:. |
|000009e0| 4d 2d 43 2d 64 09 2d 2d | 20 72 65 63 6f 72 64 20 |M-C-d.--| record |
|000009f0| 64 65 66 75 6e 20 61 74 | 20 6f 72 20 61 66 74 65 |defun at| or afte|
|00000a00| 72 20 70 6f 69 6e 74 0a | 09 20 20 20 66 6f 72 20 |r point.|. for |
|00000a10| 6c 61 74 65 72 20 74 72 | 61 6e 73 6d 69 73 73 69 |later tr|ansmissi|
|00000a20| 6f 6e 20 74 6f 20 4c 69 | 73 70 20 6a 6f 62 2e 0a |on to Li|sp job..|
|00000a30| 20 20 4d 2d 43 2d 72 20 | 2d 2d 20 72 65 63 6f 72 | M-C-r |-- recor|
|00000a40| 64 20 72 65 67 69 6f 6e | 20 66 6f 72 20 6c 61 74 |d region| for lat|
|00000a50| 65 72 20 74 72 61 6e 73 | 6d 69 73 73 69 6f 6e 20 |er trans|mission |
|00000a60| 74 6f 20 4c 69 73 70 20 | 6a 6f 62 2e 0a 20 20 43 |to Lisp |job.. C|
|00000a70| 2d 78 20 7a 20 2d 2d 20 | 74 72 61 6e 73 66 65 72 |-x z -- |transfer|
|00000a80| 20 74 6f 20 4c 69 73 70 | 20 6a 6f 62 20 61 6e 64 | to Lisp| job and|
|00000a90| 20 74 72 61 6e 73 6d 69 | 74 20 73 61 76 65 64 20 | transmi|t saved |
|00000aa0| 74 65 78 74 2e 0a 20 20 | 4d 2d 43 2d 63 20 2d 2d |text.. |M-C-c --|
|00000ab0| 20 74 72 61 6e 73 66 65 | 72 20 74 6f 20 4c 69 73 | transfe|r to Lis|
|00000ac0| 7a 74 20 28 4c 69 73 70 | 20 63 6f 6d 70 69 6c 65 |zt (Lisp| compile|
|00000ad0| 72 29 20 6a 6f 62 0a 09 | 20 20 20 61 6e 64 20 74 |r) job..| and t|
|00000ae0| 72 61 6e 73 6d 69 74 20 | 73 61 76 65 64 20 74 65 |ransmit |saved te|
|00000af0| 78 74 2e 0a 5c 5c 7b 6c | 65 64 69 74 2d 6d 6f 64 |xt..\\{l|edit-mod|
|00000b00| 65 2d 6d 61 70 7d 0a 54 | 6f 20 6d 61 6b 65 20 4c |e-map}.T|o make L|
|00000b10| 69 73 70 20 6d 6f 64 65 | 20 61 75 74 6f 6d 61 74 |isp mode| automat|
|00000b20| 69 63 61 6c 6c 79 20 63 | 68 61 6e 67 65 20 74 6f |ically c|hange to|
|00000b30| 20 4c 65 64 69 74 20 6d | 6f 64 65 2c 0a 64 6f 20 | Ledit m|ode,.do |
|00000b40| 28 73 65 74 71 20 6c 69 | 73 70 2d 6d 6f 64 65 2d |(setq li|sp-mode-|
|00000b50| 68 6f 6f 6b 20 27 6c 65 | 64 69 74 2d 66 72 6f 6d |hook 'le|dit-from|
|00000b60| 2d 6c 69 73 70 2d 6d 6f | 64 65 29 22 20 28 69 6e |-lisp-mo|de)" (in|
|00000b70| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00000b80| 2d 63 6f 64 65 20 22 c0 | 88 c1 20 88 c2 20 87 22 |-code ".|.. .. ."|
|00000b90| 20 5b 6e 69 6c 20 6c 69 | 73 70 2d 6d 6f 64 65 20 | [nil li|sp-mode |
|00000ba0| 6c 65 64 69 74 2d 66 72 | 6f 6d 2d 6c 69 73 70 2d |ledit-fr|om-lisp-|
|00000bb0| 6d 6f 64 65 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |mode] 3)|)..(defu|
|00000bc0| 6e 20 6c 65 64 69 74 2d | 66 72 6f 6d 2d 6c 69 73 |n ledit-|from-lis|
|00000bd0| 70 2d 6d 6f 64 65 20 6e | 69 6c 20 28 62 79 74 65 |p-mode n|il (byte|
|00000be0| 2d 63 6f 64 65 20 22 c3 | 08 21 88 c4 89 11 88 c5 |-code ".|.!......|
|00000bf0| 89 12 88 c6 c7 21 87 22 | 20 5b 6c 65 64 69 74 2d |.....!."| [ledit-|
|00000c00| 6d 6f 64 65 2d 6d 61 70 | 20 6d 6f 64 65 2d 6e 61 |mode-map| mode-na|
|00000c10| 6d 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 75 73 |me major|-mode us|
|00000c20| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 22 4c 65 64 |e-local-|map "Led|
|00000c30| 69 74 22 20 6c 65 64 69 | 74 2d 6d 6f 64 65 20 72 |it" ledi|t-mode r|
|00000c40| 75 6e 2d 68 6f 6f 6b 73 | 20 6c 65 64 69 74 2d 6d |un-hooks| ledit-m|
|00000c50| 6f 64 65 2d 68 6f 6f 6b | 5d 20 33 29 29 0a |ode-hook|] 3)). |
+--------+-------------------------+-------------------------+--------+--------+
